www.gusucode.com > 星梦奇缘交友网 1 > 星梦奇缘交友网 1.0源码程序/love/leaveword/login_verify.asp

    <!-- #include file="config.asp" -->
<!-- #include file="style.asp" -->
<!-- #include file="md5.asp" -->
<!-- #include file="common.asp" -->

<%
Response.Expires=-1
call addstat("login")

if VcodeCount>0 and (Request.Form("ivcode")<>session("vcode") or session("vcode")="") then
	session("vcode")=""
	call addstat("loginfailed")
	Response.Write "验证码错误，<a href=""admin_login.asp"">返回</a><script language=""JavaScript"">alert('验证码错误。');history.back();</script>"

	set rs=nothing
	set cn=nothing
	Response.End
else
	session("vcode")=""
end if

Dim cn,rs
set cn=server.CreateObject("ADODB.Connection")
set rs=server.CreateObject("ADODB.Recordset")

CreateConn cn,dbtype
rs.Open "select adminpass from supervisor",cn

session.Contents("adminpass")=md5(request("iadminpass"),16)
if rs.EOF=false then
	if session.Contents("adminpass")=rs(0) then
		session.Timeout=clng(AdminTimeOut)
		Response.Redirect "admin.asp"
	else
		call addstat("loginfailed")
		Response.Write "密码不正确，<a href=""admin_login.asp"">返回</a><script language=JavaScript>alert('密码不正确！');history.back();</script>"

		rs.Close
		cn.Close
		set rs=nothing
		set cn=nothing
		Response.End
	end if
else
	call addstat("loginfailed")
	Response.Write "密码验证失败，<a href=""admin_login.asp"">返回</a><script language=""JavaScript"">alert('密码验证失败！');history.back();</script>"
	Response.End
end if
rs.Close
cn.Close
set rs=nothing
set cn=nothing
%>